0 SYS58692:POKE53280,0:POKE53281,0:POKE646,5:DE=PEEK(186):PRINT"CHOOSE OPTION :
1.LOAD CBMSET IN MEMORY
2.SHOW CBMSET IN MEMORY
3.SAVE CBMSET AS PFOXSET
4.DIRECTORY
5.END PROGRAM
1 [161]A$:[139]A$[178]""[167]1
2 [139]A$[178]"1"[137]8
3 [139]A$[178]"2"[137]9
4 [139]A$[178]"3"[137]10
5 [139]A$[178]"4"[167][158]3161:[138]
6 [139]A$[178]"5"[167][158]64738
7 [137]1
8 [158]2671:[133]"FILENAME :";F$:[158]2683:[159]15,DE,15:[137]11
9 [158]2640:[137]0
10 [133]"GIVE NUMBER PRINTFOXSET (0-255) :";ZS:ZS$[178][196](ZS):ZS$[178][201](ZS$,([195](ZS$)[171]1)):F$[178]"ZS"[170]ZS$[170]",P,W":[151]2749,ZS:[159]8,DE,8,F$:[159]15,DE,15:[158]2753:[160]8
11 [132]15,A,B$,C,D:[160]15:[139]A[178]0[167]0
12 [153]"DEFDISK-ERROR : "A;B$C;D:[153]"PRINT<< SYSPRESS SPACEPRINT >>
13 GETA$:IFA$=""THEN13
14 GOTO0